home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / WRDGME.ARC / GEOW3 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  4.9 KB  |  135 lines
  1. G"GeoWSLCT
  2. PRG formatted GEOS file V1.0
  3. NX1000
  4. GeoWordsMai
  5. BLASTER'S CONVERTER V2.5
  6. J!GeoWShake
  7. GeoWTiles
  8. Write Image V2.1
  9. geoWrite    V2.1
  10.     .if    Pass1        
  11.     .noeqin
  12.     .noglbl                
  13.     .include    geosSym    
  14.     .include    geosMac    
  15.     .include    GeoWEquates
  16.     .include    GeoWZips
  17.     .glbl
  18.     .eqin
  19.     .endif
  20.     .psect
  21.     SLCTSTAR:
  22.         jmp    SELECTBX
  23.     PosiHndl:
  24.         lda    
  25.     SLCTSTAR:
  26.         jmp    SELECTBX
  27.     PosiHndl:
  28.         lda    mouseYPo
  29.         cmp    #EndSTop
  30.         bcs    50$
  31.         cmp    #WhosTop
  32.         bcs    10$
  33.         jmp    R_DoLLod
  34.     10$:
  35.         cmp    #Gam1Top
  36.         bcs    20$
  37.         jmp    GOTOHUMN
  38.     20$:
  39.         cmp    #Gam2Top
  40.         bcs    30$
  41.         jmp
  42. R_DoStar
  43.     30$:
  44.         cmp    #DoOwnTop
  45.         bcs    40$
  46.         jmp    R_Do2Sta    
  47.     40$:
  48.         jmp    R_DoOwn
  49.     50$:
  50.         cmp    #PrLsTop
  51.         bcs    60$
  52.         jmp    sqr4hndl
  53.     60$:
  54.         cmp    #QuitTop
  55.         bcs    70$
  56.         jmp    R_DoPrLs
  57.     70$:
  58.         jmp    R_DoQuit    
  59.     sqr4hndl:
  60.         cmp    #AdNNeTop
  61.         bcs    20$
  62.         CmpWI    mouseXPo,#SaveLeft
  63.         bcc    10$
  64.         jmp    DoSaveEn
  65.     10$:
  66.         jmp    R_DoEdit
  67.     20$:
  68.         CmpWI    mouseXPo,#NewLeft
  69.         bcc    30$
  70.         jmp    R_DoNewL
  71.     30$:
  72.         jmp    R_DoAddW
  73.     SELECTBX:
  74.         LoadB    dispBuff,# (ST_WR_FO | ST_WR_BA)
  75.         jsr    i_Graphi
  76.         .byte    MOVEPENT
  77.         .word    SBOXPXLF + 8 
  78.     SELECTBX:
  79.         LoadB    dispBuff,# (ST_WR_FO | ST_WR_BA)
  80.         jsr    i_Graphi
  81.         .byte    MOVEPENT
  82.         .word    SBOXPXLF + 8 
  83.         .byte    SCOREBXT + 8
  84.         .byte    NEWPATTE,1
  85.         .byte    RECTANGL
  86.         .word    SBOXPXLF + 8 + (MySBoxW * 8)
  87.         .byte    SCOREBXT + 7 + MySBoxH
  88.         .byte    NULL
  89.         jsr    i_Bitmap
  90.         .word    MySlctBo
  91.         .byte    SCOREBXL
  92.         .byte    SCOREBXT
  93.         .byte    MySBoxW
  94.         .byte    MySBoxH 
  95.         LoadB    dispBuff,# (ST_WR_FO | ST_WR_BA)
  96.      jsr    i_Bitmap
  97.         .word    MyHeader    ;bitmap
  98.         .byte    #$13
  99.         .byte    SM_TOP
  100.         .byte    MyHeadW
  101.         .byte    MyHeadH
  102.         rts
  103.     EraHead:
  104.         jsr    i_Recove
  105.         .byte    SM_TOP
  106.         .byte    SM_TOP + MyHeadH
  107.         .word    #$98
  108.         .word    #$98 + MyHeadW * 8
  109.      rts
  110.     MyHeader:
  111.     MyHeadH    == picH
  112.     MyHeadW    == picW
  113.     MyHeader:
  114.     MyHeadH    == picH
  115.     MyHeadW    == picW
  116. MySlctBo:
  117.     MySBoxW    == picW
  118.     MySBoxH    == picH
  119.     SLCTENDS:
  120. GeoWORDS
  121. Select Box Module
  122. copyright 1989
  123. David B. Ferguson
  124. GeoWORDS
  125. Select Box Module
  126. copyright 1989
  127. David B. Ferguson
  128. Written: DATE  Page #PAGE
  129. GeoWords Selection Box Module
  130. Page #PAGE
  131. GeoWords Selection Box Module
  132. Page #PAGE    Written: DATE
  133. errata
  134. TOOLKIT
  135.